home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / dir / megad31b.lha / rexx / MarkDemo.rexx < prev    next >
OS/2 REXX Batch file  |  1993-06-30  |  1KB  |  51 lines
  1. /*  Mark Demo
  2.     This file demonstrates the uses of 
  3.     Mark, Dest, Lock, Child, Parent, 
  4.     SelectItem and UnSelectItem.
  5.     Outside of this, this program is pretty much useless
  6. */
  7. options results
  8.  
  9. ADDRESS MEGAD
  10. dbug TRUE
  11.  
  12. /* open window to the Ram Disk: and Mark it */
  13.     Mark 'ram:' 
  14. /* display actual name of opened directory */
  15.     SAY result    
  16. /* save name for later */
  17.     rootname = result 
  18. /* User select the Marked directory's 'Dest'ination gadget */
  19.     Dest TRUE        
  20. /* Select the Marked directory's 'Lock' gadget */
  21.     Lock TRUE        
  22. /* move to the subdirectory */
  23.     child t        
  24. /* display actual name */
  25.     say result    
  26. /* save name for later */
  27.     childname = result    
  28. /* Mark the child directory */
  29.     mark "'"result"'"    
  30. /* User select the Marked directory's 'Dest'ination gadget */
  31.     Dest TRUE        
  32. /* Select the Marked directory's 'Lock' gadget */
  33.     Lock TRUE        
  34. /* Move to the parent directory */
  35.     parent        
  36. /* display actual name */
  37.     say result    
  38. /* Mark the Parent directory */
  39.     mark "'"result"'"    
  40. /* Flash the T directory 40 times */
  41.     DO 40                
  42.         SelectItem t
  43.         UnSelectItem t
  44.         END
  45.     mark "'"childname"'"
  46. /* close the child */
  47.     CloseMark            
  48.     mark "'"rootname"'"
  49. /* close the parent */
  50.     CloseMark            
  51.